home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 1.iso / toolbox / www / cgi-bin / pheedbak-cgi < prev    next >
Encoding:
Text File  |  1996-11-11  |  3.5 KB  |  60 lines
  1. #!/usr/bin/perl
  2.  
  3. $mailprog = '/usr/lib/sendmail';
  4. $recipient = 'DTjanitor\@sgi.com';
  5.  
  6. # next line will tell the browser this doc is html:
  7. print "Content-type: text/html\n\n";
  8.  
  9. # PATH_INFO is the "relative path" from Doc root (with a leading `/' char)
  10. $relpath = $ENV{'PATH_INFO'};
  11.  
  12. # QUERY_STRING stores the name of the subdir who's "parent dir" is
  13. # is the one that PATH_INFO and PATH_TRANSLATED point to.
  14. $fileWasIn = $ENV{'QUERY_STRING'} ;
  15.  
  16.  
  17. # lay in the html header/beginning text stuff:
  18. printf "<html><head><title>Developer Toolbox Main-Terminal pheedbak phorm</title></head><body>";
  19. print "<h1> SGI WWW Developer Toolbox Pheedbak </h1>\n";
  20. print "<h3><a href=\"/toolbox/DT.html\">TOP</a> | <a href=\"/toolbox/DTtree.html\">Tree</a> | <a href=\"/toolbox/DTtopic.html\">Topic</a> | <a href=\"/toolbox/DTalfabetic.html\">A-Z</a> | <a href=\"/toolbox/www/cgi-bin/DTsearch-cgi\">Search</a> | <a href=\"/toolbox/DThot.html\">Hot</a> | <a href=\"/toolbox/DTnew.html\">New</a><img src=\"/toolbox/www/images/space120.gif\"><img align=\"middle\" src=\"/toolbox/www/images/sgilogosm.gif\"></h3>";
  21. print "<b>PLEEZE</b> send yer \"take\" on things back to the toolbox webjerk.";
  22. print "The <b>essence of toolbox-as-resource</b> originates in \"hearing\" \n";
  23. print "from one-and-all, about where things are <i>lacking</i>, where \n";
  24. print "there needs to be <b>more </b> <i>emphasis</i>, where we've \n";
  25. print "<i>completely missed the boat</i>, where <i>improvement is \n";
  26. print "needed</i>--<b>ALL</b> responses are greatly appreciated and are \n";
  27. print "essential to the ever-increasing usefulness of the \n";
  28. print "toolbox-as-resource.  the janitor thrives on knowing what people \n";
  29. print "want on and think about the toolbox.\n";
  30. print "<p>";
  31. print "<h5>NOTE: this form azzumes you are using version 2.0 or later of NCSA";
  32. print "Mosaic.   This form may not work with other browsers.  (this tape\n";
  33. print "will self-destruct in 5 seconds.  Good Luck, Jim.)</h5>\n";
  34. print "<p>";
  35. print "Messages can be posted in one o' two waze:";
  36. print "<ol><b>\n";
  37. print "<FORM method=\"POST\" action=\"/toolbox/www/cgi-bin/mailin-cgi?DTjanitor\@sgi.com\">\n";
  38. print "<li></b>type into the <i>text-o-matic</i> form below:<br>\n";
  39. print "<b>(BOGUS!--need to master <a href=\"http://www.lerc.nasa.gov/httpd_doc/tutorials/includes.html\">Server Side Includes</a> so \"e-mail addr\" <i>ISN'T</i> needed)<br>\npuh-leeze enter yer e-mail address:</b><br>\n";
  40. print "<img src=\"/toolbox/www/images/space24.gif\"><input name=\"email\" SIZE=\"40\"><br>\n";
  41. print "<b>puh-<i>leeze</i> enter yer name:</b><br>\n";
  42. print "<img src=\"/toolbox/www/images/space24.gif\"><input name=\"name\" SIZE=\"40\"><br>\n";
  43. print "<b>comments/pheedbak:</b><br>\n";
  44. print "<textarea name=\"comments\" cols=\"60\" rows=\"8\">\n";
  45. print "</textarea>";
  46. print "<input type=\"submit\" value=\"transmit message\">\n";
  47. print "<input type=\"reset\" value=\"erase message\">\n";
  48. print "<INPUT TYPE=\"hidden\" NAME=\"relpath\" VALUE=$relpath>\n";
  49. print "<INPUT TYPE=\"hidden\" NAME=\"fileWasIn\" VALUE=$fileWasIn>\n";
  50. print "</form>";
  51. print "<hr><p><b>\n";
  52. print "<li></b>all INTERNET MAIL sent to <a href=\"mailto:DTjanitor\@sgi.com\"><b>DTjanitor\@sgi.com</b></a>\n(this link <i>doesn't work</i> in xmosaic) will ";
  53. print " be delivered directly to the toolbox webclown.  <b>WARNING! -- </b> \n";
  54. print "this mail window will NOT automatically include/contain your e-mail \n";
  55. print "or \"real\" name--you must identify yerself in some way if you want \n";
  56. print "the janitor to be able to respond to you.\n";
  57. print "</ol>";
  58. print "</body>";
  59. print "</html>";
  60.